From 8052715a1f50bd30c980a6a6f003546259b58613 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 6 Feb 1994 23:40:45 +0000 Subject: [PATCH] (kill-region): Test inhibit-read-only. --- lisp/simple.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index dd994b1cbcb..16cb57b7457 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1042,7 +1042,7 @@ to make one entry in the kill ring." ;; If the buffer is read-only, we should beep, in case the person ;; just isn't aware of this. However, there's no harm in putting ;; the region's text in the kill ring, anyway. - (buffer-read-only + ((and buffer-read-only (not inhibit-read-only)) (copy-region-as-kill beg end) ;; This should always barf, and give us the correct error. (barf-if-buffer-read-only)) -- 2.30.2